Dit voorbeeld maakt gebruik van de functie Asc om een tekencode te geven die correspondeert met de eerste letter in de tekenreeks.
Dim MyNumber
MyNumber = Asc("A") ' Returns 65.
MyNumber = Asc("a") ' Returns 97.
MyNumber = Asc("Appel") ' Returns 65.